home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freesoft 1997 May
/
Freesoft_1997-05_cd.bin
/
nerecenz
/
network, comunications
/
ZOW
/
INSTALL.FIL
/
SCRIPT
/
REGCOMPU.ZRX
< prev
next >
Wrap
Text File
|
1996-12-19
|
4KB
|
134 lines
/* REXX */
CR=d2c(13)
CRCR=CR||CR
PARSE VALUE ARG(1) WITH file
IF file="" THEN DO
msg= "This REXX program is only for use by the ZOC order form!"||CRCR
CALL ZocMsgBox msg
EXIT
END
msg= "You are about to transfer your order form to CompuLab via modem."||CR,
CR"This is a 3 step procedure which you may abort at any point."||CR,
CR"Do you want to continue?"
result= ZocMsgBox(msg, 2)
IF result=="##NO##" THEN SIGNAL aborted
msg= "Please make sure that ZOC is correctly configured for modem",
"communication."||CR,
CR"Do you want to continue?"
result= ZocMsgBox(msg, 2)
IF result=="##NO##" THEN SIGNAL aborted
msg= "In the next step, the order form will be shown. Please check",
"if ordered products, credit card numbers, etc. are correct."CR,
CR"Do you want to continue?"
result= ZocMsgBox(msg, 2)
IF result=="##NO##" THEN SIGNAL aborted
PARSE VALUE ZocOS() with osysstr osversion
IF osysstr="OS2" then
ADDRESS CMD "E "file
else
ADDRESS CMD "NOTEPAD "file
msg= "The next step will show the phone number of the support BBS in",
"Germany. Outside Germany please replace 0911 with your international",
"dial prefix and German country/city code (49 911). In the U.S.",
"this is probably 011 49 911. "CR,
CR"Do you want to continue?"
result= ZocMsgBox(msg, 2)
if result=="##NO##" THEN SIGNAL aborted
phone= ZocAsk("Please complete the following phone number", "0911 3781200")
IF phone="##CANCEL##" THEN SIGNAL aborted
msg= "ZOC will now try to call the support BBS and send your order form."CR,
"(You can watch the transfer by moving the order form window aside.)"CR,
CR"Do you want to continue?"
result= ZocMsgBox(msg, 2)
IF result=="##NO##" THEN SIGNAL aborted
CALL ZocTimeout 3
CALL ZocSend "AT^M"
CALL ZocWait "OK"
CALL ZocDial phone
CALL ZocTimeout 60
result= ZocWaitmux("CONNECT", "(MSN)", "NO CARRIER", "NO DIALTONE", "BUSY", "ERROR")
IF result=0 | result=1 THEN do
CALL ZocTimeout 40
result= ZocWait("Name")
IF result=640 THEN SIGNAL fail
CALL ZocDelay 1
CALL ZocSend "ZOC^M"
result= ZocWait("Ihre Wahl")
IF result=640 THEN SIGNAL fail
CALL ZocDelay 1
CALL ZocSend "Y^M"
result= ZocWait("Bitte Text eingeben")
IF result=640 THEN SIGNAL fail
CALL ZocDelay 1
CALL ZocSend "THIS REGISTRATION WAS DELIVERED BY REGCOMPU.ZRX^M^M"
stuffseen= 0
linecnt= 0
DO FOREVER
line= LINEIN(file) /* read line from file */
line= STRIP(line,'l',D2C(9)) /* remove leading TAB characters */
line= STRIP(line,'l') /* remove leading space characters */
linecnt= linecnt+1
if STREAM(file, 's')\="READY" THEN /* EOF */
LEAVE
IF stuffseen=0 & line="" THEN
ITERATE
ELSE
stuffseen= 1
CALL ZocSend " "||line
CALL ZocSend "^M"
END /* DO */
CALL ZocSend ".^M"
CALL ZocTimeout 20
result= ZocWait("Eingabe beendet.")
IF result=0 & linecnt>10 THEN DO
CALL ZocWait "Ihre Wahl"
CALL ZocDelay 1
CALL ZocSend "Z^M"
CALL ZocDelay 5
CALL ZocHangup
CALL ZocMsgBox "Your order was delivered successfully. Thank you!"
END
ELSE DO
CALL ZocMsgBox "Error while sending. The order was *NOT* sent!"
END
END /* IF */
ELSE DO
CALL ZocHangup
CALL ZocMsgBox "Sorry, connection failed. The order was *NOT* sent!"
END /* ELSE */
EXIT
fail:
CALL ZocHangup
CALL ZocMsgBox "Sorry, connection failed. The order was *NOT* sent!"
EXIT
aborted:
CALL ZocMsgBox "User aborted. The order was *NOT* sent!"
EXIT